home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO6.DMS / in.adf / Procedures / Screen_FX / _Wipe1.AMOS / _Wipe1.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-09-29  |  1.2 KB  |  39 lines
  1. '******************************************************* 
  2. '*                                                     * 
  3. '* AMOS Professional Procedure Library                 * 
  4. '*                                                     * 
  5. '* Procedure: Screen Wipe 1                            * 
  6. '*                                                     * 
  7. '*    Author: N.P. Hayman-Joyce                        * 
  8. '*                                                     * 
  9. '******************************************************* 
  10.  
  11. For A=0 To 60
  12.    Print "AMOS Professional  ";
  13. Next A
  14. Wait 50
  15. _XWIPE1
  16.  
  17.  
  18. Procedure _XWIPE1
  19.    ' XWipe1 - Single Xwipe by N.P.Hayman-Joyce (OWL)      
  20.    ' Use this wipe anywhere in your program by typing " proc _XWIPE1 ". 
  21.    
  22.    ' This gives the corners of the screen so that the line can be drawn.    
  23.    X1=320 : Y1=0 : X2=0 : Y2=200
  24.    ' The first loop, which rotates the lines to opposite positions. 
  25.    Do 
  26.       Ink 0
  27.       Draw X2,Y2 To X1,Y1
  28.       ' This quits the loop if the positions have swapped. 
  29.       Exit If X1=0
  30.       X2=X2+1 : X1=X1-1
  31.    Loop 
  32.    ' The second loop, which finishes the job. 
  33.    Do 
  34.       Ink 0
  35.       Draw X1,Y1 To X2,Y2
  36.       Exit If Y2=0
  37.       Y2=Y2-1 : Y1=Y1+1
  38.    Loop 
  39. End Proc